home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / welche hand (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  980b  |  43 lines
  1. 10 print"[147]"
  2. 20 print"****** welche hand ********
  3. 40 [143]------- spielanleitung---------
  4. 50 [153]
  5. 60 [153]"nehmen sie bitte in die eine
  6. 70 print"hand eine 10-pfennig muenze,
  7. 80 [153]"in die andere hand eine
  8. 90 print"1-pfennig muenze.
  9. 100 [153]
  10. 110 [153]"ich werde erraten, in welcher
  11. 120 print"hand sie welche muenze haben,
  12. 130 [153]"wenn sie mir folgende frage
  13. 140 print"beantworten:
  14. 150 [153]
  15. 160 [153]"multiplizieren sie den wert
  16. 170 print"der muenze in ihrer rechten
  17. 180 [153]"hand mit einer geraden zahl,
  18. 190 print"den wert der muenze in ihrer
  19. 200 [153]"linken hand mit einer
  20. 210 print"ungeraden zahl.
  21. 220 [153]
  22. 230 [153]"ist die summe der von ihnen
  23. 240 print"errechneten zahlen eine
  24. 250 [153]"gerade oder ungerade zahl ?
  25. 260 print
  26. 270 :
  27. 280 rem------------frage und antwort----
  28. 290 :
  29. 300 input"'gerade' oder 'ungerade'";a$
  30. 310 if a$="gerade" then 350
  31. 320 if a$="ungerade" then 380
  32. 330 print:print
  33. 340 print"falsche eingabe":goto 300
  34. 350 m10$="links"
  35. 360 m01$="rechts"
  36. 370 goto 400
  37. 380 m10$="rechts"
  38. 390 m01$="links"
  39. 400 print:print
  40. 410 print"die 10-pfennig sind ";m10$
  41. 420 print"der 1-pfennig ist ";m01$
  42. 430 end
  43.